home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Employee_M2065065112007.psc / Employee Manager / frmadditon.frm < prev    next >
Text File  |  2007-05-10  |  10KB  |  329 lines
  1. VERSION 5.00
  2. Begin VB.Form frmadditon 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Employee Addition Manager"
  7.    ClientHeight    =   2490
  8.    ClientLeft      =   3585
  9.    ClientTop       =   3030
  10.    ClientWidth     =   4860
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "Tahoma"
  14.       Size            =   8.25
  15.       Charset         =   238
  16.       Weight          =   700
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    Icon            =   "frmadditon.frx":0000
  22.    KeyPreview      =   -1  'True
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   2490
  28.    ScaleWidth      =   4860
  29.    Begin VB.CommandButton cmdclear 
  30.       Caption         =   "Clear"
  31.       Height          =   255
  32.       Left            =   2850
  33.       TabIndex        =   6
  34.       Top             =   2145
  35.       Width           =   930
  36.    End
  37.    Begin VB.CommandButton cmdsave 
  38.       Caption         =   "Save"
  39.       Height          =   255
  40.       Left            =   1860
  41.       TabIndex        =   5
  42.       Top             =   2145
  43.       Width           =   930
  44.    End
  45.    Begin VB.CommandButton cmdclose 
  46.       Caption         =   "Cancel"
  47.       Height          =   255
  48.       Left            =   3840
  49.       TabIndex        =   7
  50.       Top             =   2145
  51.       Width           =   930
  52.    End
  53.    Begin VB.TextBox txtaddress 
  54.       Appearance      =   0  'Flat
  55.       Height          =   285
  56.       Left            =   1725
  57.       TabIndex        =   2
  58.       Top             =   1020
  59.       Width           =   3030
  60.    End
  61.    Begin VB.TextBox txtname 
  62.       Appearance      =   0  'Flat
  63.       Height          =   285
  64.       Left            =   1725
  65.       TabIndex        =   1
  66.       Top             =   690
  67.       Width           =   3030
  68.    End
  69.    Begin VB.TextBox txtsalary 
  70.       Appearance      =   0  'Flat
  71.       Height          =   285
  72.       Left            =   1725
  73.       TabIndex        =   4
  74.       Top             =   1680
  75.       Width           =   1710
  76.    End
  77.    Begin VB.TextBox txtphone 
  78.       Appearance      =   0  'Flat
  79.       Height          =   285
  80.       Left            =   1725
  81.       TabIndex        =   3
  82.       Top             =   1350
  83.       Width           =   1710
  84.    End
  85.    Begin VB.TextBox txtempid 
  86.       Appearance      =   0  'Flat
  87.       Height          =   285
  88.       Left            =   1725
  89.       TabIndex        =   0
  90.       Top             =   360
  91.       Width           =   1215
  92.    End
  93.    Begin VB.Frame Frame1 
  94.       BackColor       =   &H00FF0000&
  95.       BorderStyle     =   0  'None
  96.       Height          =   225
  97.       Left            =   30
  98.       TabIndex        =   13
  99.       Top             =   30
  100.       Width           =   4800
  101.       Begin VB.Label lblmsg 
  102.          Alignment       =   2  'Center
  103.          AutoSize        =   -1  'True
  104.          BackStyle       =   0  'Transparent
  105.          Caption         =   "Welcome to Employee Addition Manager"
  106.          ForeColor       =   &H00FFFFFF&
  107.          Height          =   195
  108.          Left            =   720
  109.          TabIndex        =   14
  110.          Top             =   0
  111.          Width           =   3420
  112.       End
  113.    End
  114.    Begin VB.Shape Shape1 
  115.       BorderColor     =   &H00FF8080&
  116.       BorderWidth     =   2
  117.       Height          =   2475
  118.       Left            =   15
  119.       Top             =   15
  120.       Width           =   4845
  121.    End
  122.    Begin VB.Label Label5 
  123.       AutoSize        =   -1  'True
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Basic Salary : "
  126.       ForeColor       =   &H0000FFFF&
  127.       Height          =   195
  128.       Left            =   195
  129.       TabIndex        =   12
  130.       Top             =   1740
  131.       Width           =   1155
  132.    End
  133.    Begin VB.Label Label4 
  134.       AutoSize        =   -1  'True
  135.       BackStyle       =   0  'Transparent
  136.       Caption         =   "Phone No : "
  137.       ForeColor       =   &H0000FFFF&
  138.       Height          =   195
  139.       Left            =   195
  140.       TabIndex        =   11
  141.       Top             =   1425
  142.       Width           =   915
  143.    End
  144.    Begin VB.Label Label3 
  145.       AutoSize        =   -1  'True
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "Address : "
  148.       ForeColor       =   &H0000FFFF&
  149.       Height          =   195
  150.       Left            =   195
  151.       TabIndex        =   10
  152.       Top             =   1095
  153.       Width           =   825
  154.    End
  155.    Begin VB.Label Label2 
  156.       AutoSize        =   -1  'True
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "Name : "
  159.       ForeColor       =   &H0000FFFF&
  160.       Height          =   195
  161.       Left            =   195
  162.       TabIndex        =   9
  163.       Top             =   765
  164.       Width           =   615
  165.    End
  166.    Begin VB.Label Label1 
  167.       AutoSize        =   -1  'True
  168.       BackStyle       =   0  'Transparent
  169.       Caption         =   "Employee ID : "
  170.       ForeColor       =   &H0000FFFF&
  171.       Height          =   195
  172.       Left            =   195
  173.       TabIndex        =   8
  174.       Top             =   435
  175.       Width           =   1200
  176.    End
  177. End
  178. Attribute VB_Name = "frmadditon"
  179. Attribute VB_GlobalNameSpace = False
  180. Attribute VB_Creatable = False
  181. Attribute VB_PredeclaredId = True
  182. Attribute VB_Exposed = False
  183. Option Explicit
  184.  
  185. Private Sub cmdclear_Click()
  186. txtempid.Text = ""
  187. txtname.Text = ""
  188. txtaddress.Text = ""
  189. txtphone.Text = ""
  190. txtsalary.Text = ""
  191. txtempid.SetFocus
  192. End Sub
  193.  
  194. Private Sub cmdclose_Click()
  195. confirm = MsgBox("Are you sure to exit ?" & Chr(10) & "Any unsaved data will be lost.", vbApplicationModal + vbYesNo + vbQuestion, "Exit Addition")
  196. If confirm = vbNo Then
  197.     txtempid.SetFocus
  198.     Exit Sub
  199. ElseIf confirm = vbYes Then
  200.     Unload Me
  201.     frmmenu.optadd.SetFocus
  202. End If
  203. End Sub
  204.  
  205. Private Sub cmdsave_Click()
  206. If Trim(txtempid.Text) <> "" And Trim(txtname.Text) <> "" And Trim(txtaddress.Text) <> "" And Trim(txtphone.Text) <> "" _
  207.     And Trim(txtsalary.Text) <> "" Then
  208.     Set rsd = db.OpenRecordset("select * from info where empno='" & Trim(txtempid.Text) & "'")
  209.     If rsd.RecordCount > 0 Then
  210.         MsgBox "Employee " & Chr(34) & Trim(txtempid.Text) & Chr(34) & " already exists.", vbApplicationModal + vbInformation, "Duplication Found"
  211.         txtempid.SelStart = 0
  212.         txtempid.SelLength = Len(Trim(txtempid.Text))
  213.         txtempid.SetFocus
  214.         Exit Sub
  215.     ElseIf rsd.RecordCount = 0 Then
  216.         rs.AddNew
  217.         If rs.EditMode = dbEditAdd Then
  218.             rs("empno") = Trim(txtempid.Text)
  219.             rs("name") = Trim(txtname.Text)
  220.             rs("address") = Trim(txtaddress.Text)
  221.             rs("phone") = Trim(txtphone.Text)
  222.             rs("salary") = Trim(txtsalary.Text)
  223.             rs.Update
  224.             MsgBox "Successfully added new employee data.", vbApplicationModal + vbInformation, "Done"
  225.             cmdclear_Click
  226.         End If
  227.     End If
  228.     Set rsd = Nothing
  229. Else
  230.     MsgBox "Sorry,blank values cannot be saved.", vbApplicationModal + vbExclamation, "Incompleted Information"
  231.     txtempid.SetFocus
  232.     Exit Sub
  233. End If
  234. End Sub
  235.  
  236. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  237. If KeyCode = vbKeyEscape Then cmdclose_Click
  238. End Sub
  239.  
  240. Private Sub Form_Load()
  241. Left = (Screen.Width - Me.Width) / 2
  242. Top = (Screen.Height - Me.Height) / 2
  243.  
  244. Set db = OpenDatabase(App.Path & "\employee.mdb")
  245. Set rs = db.OpenRecordset("info", dbOpenTable)
  246. Set rsd = db.OpenRecordset("info", dbOpenTable)
  247. If rs.RecordCount > 0 Then rs.MoveFirst
  248. If rsd.RecordCount > 0 Then rsd.MoveFirst
  249. End Sub
  250.  
  251. Private Sub txtname_LostFocus()
  252. Dim i, c As Integer, n As String
  253.  
  254. If Trim(txtname.Text) <> "" Then
  255.     For i = 1 To Len(Trim(txtname.Text)) Step 1
  256.         n = Mid(Trim(txtname.Text), i, 1)
  257.         n = LCase(n)
  258.         If n >= "a" And n <= "z" Or n = " " Then
  259.             c = 0
  260.         Else
  261.             c = 1
  262.         End If
  263.     Next i
  264.     If c = 0 Then
  265.         Exit Sub
  266.     ElseIf c = 1 Then
  267.         MsgBox "Name contains some junk characters." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
  268.         txtname.SelStart = 0
  269.         txtname.SelLength = Len(Trim(txtname.Text))
  270.         txtname.SetFocus
  271.     End If
  272. Else
  273.     Exit Sub
  274. End If
  275. End Sub
  276.  
  277. Private Sub txtphone_KeyPress(KeyAscii As Integer)
  278. If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
  279.     KeyAscii = KeyAscii
  280. Else
  281.     KeyAscii = 0
  282. End If
  283. End Sub
  284.  
  285. Private Sub txtsalary_KeyPress(KeyAscii As Integer)
  286. If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
  287.     KeyAscii = KeyAscii
  288. Else
  289.     KeyAscii = 0
  290. End If
  291. End Sub
  292.  
  293. Private Sub txtphone_LostFocus()
  294. If Trim(txtphone.Text) <> "" Then
  295.     If InStr(1, txtphone.Text, ".") Then
  296.         MsgBox "Phone number contains a junk character." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
  297.         txtphone.SelStart = 0
  298.         txtphone.SelLength = Len(Trim(txtphone.Text))
  299.         txtphone.SetFocus
  300.     Else
  301.         If Len(Trim(txtphone.Text)) = 8 Or Len(Trim(txtphone.Text)) = 10 Then
  302.             Exit Sub
  303.         Else
  304.             MsgBox "Phone no should be consist of 8(Cell) or 10(Land) digits.", vbApplicationModal + vbInformation, "Invalid Phone No Format"
  305.             txtphone.SelStart = 0
  306.             txtphone.SelLength = Len(Trim(txtphone.Text))
  307.             txtphone.SetFocus
  308.         End If
  309.     End If
  310. Else
  311.     Exit Sub
  312. End If
  313. End Sub
  314.  
  315. Private Sub txtsalary_LostFocus()
  316. If Trim(txtsalary.Text) <> "" Then
  317.     If IsNumeric(Trim(txtsalary.Text)) Then
  318.         Exit Sub
  319.     Else
  320.         MsgBox "Invalid salary.", vbApplicationModal + vbExclamation, "Error"
  321.         txtsalary.SelStart = 0
  322.         txtsalary.SelLength = Len(Trim(txtsalary.Text))
  323.         txtsalary.SetFocus
  324.     End If
  325. Else
  326.     Exit Sub
  327. End If
  328. End Sub
  329.